Here is working lotusscript which does not use any of the Domino6 new XML features, you can do same thing using Domino lotusscript xmlparsers in case you have not MSXML files installed.
Sub Initialize
Dim s As New NotesSession
Dim doc As NotesDocument
Dim objHttp As Variant
Dim response As String
Dim request As String
Set db = s.CurrentDatabase
Set doc = s.DocumentContext
Dim objXMLHTTP, objXMLDOM, objTitles, objURLs, i
Set objHttp = CreateObject("Microsoft.XMLHTTP")
url = |
http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb?readviewentries|
req = |<?xml version="1.0" encoding="UTF-8" ?><test>iiii</test>|
objHttp.open "POST", url, False, "", ""
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.send(req)
Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.loadXML (objHttp.ResponseText)
Set xmlLst = xmlDoc.getElementsByTagName("viewentry")
For i = 0 To xmlLst.length - 1
Set newdoc = New notesdocument(db)
newdoc.form="docfromxml"
Set xmlNode = xmlLst.Item(i)
Set att=xmlnode.childnodes
Forall child In att
Call newdoc.replaceitemvalue(child.nodename,child.text)
End Forall
Call newdoc.save(True,False)
Next
End Sub
Return to top
. . RE: XML HTTP Request - how to trans... (~Nicole Fezweso... 20.Jan.04) 
Print this page
